﻿Imports System.Data
Imports System.Data.Common
Imports System.Collections.Generic
Imports Microsoft.Practices.EnterpriseLibrary.Data
Imports System.Data.SqlClient
Imports Seuss.EnterpriseLibrary.DataAccess
Imports Microsoft.VisualBasic.Constants
Imports System.IO
Imports System.Configuration

Public Class DAL_Seguridad

#Region "Idisposable"
    Implements IDisposable

    Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
    Public Server_UrlPublica As String = ConfigurationManager.AppSettings("")


    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
                ' TODO: Liberar recursos administrados cuando se llamen explícitamente
            End If

            ' TODO: Liberar recursos no administrados compartidos
        End If
        Me.disposedValue = True
    End Sub

#Region " IDisposable Support "
    ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
    Public Sub Dispose() Implements IDisposable.Dispose
        ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region
#End Region

#Region "Contructores"

    Private Db As Database

    Public Sub New()
        Db = DatabaseFactory.CreateDatabase
    End Sub

    Public Sub New(ByVal NewDb As Database)
        Db = NewDb
    End Sub

#End Region

#Region "Funciones y Procedimientos"
    Public Function Get_Seguridad_By_cPercodigo_nIntTipo_nSegItem(ByVal cPerCodigo As String, ByVal nIntTipo As Integer, ByVal nSegItem As Integer) As DbCommand
        Try
            Dim Cmd As DbCommand = Db.GetStoredProcCommand("sp_Book_Get_Seguridad_By_cPerCodigo_And_nTipo_And_nSegItem")
            Db.AddInParameter(Cmd, "cPerCodigo", System.Data.DbType.String, cPerCodigo)
            Db.AddInParameter(Cmd, "nIntTipo", System.Data.DbType.Int32, nIntTipo)
            Db.AddInParameter(Cmd, "nSegItem", System.Data.DbType.Int32, nSegItem)
            Return Cmd
        Catch ex As DbException
            Throw ex
        End Try
    End Function
#End Region
End Class
